home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib11.dsk / FID PERSONALIZER.bas < prev    next >
BASIC Source File  |  2023-02-26  |  809b  |  18 lines
  1. 10  REM  **********************
  2. 11  REM  * FID PERSONALIZER   *
  3. 12  REM  * BY PAUL RAYMER     *
  4. 13  REM  * COPYRIGHT (C) 1982 *
  5. 14  REM  * BY MICRO-SPARC INC *
  6. 15  REM  * LINCOLN, MA. 01773 *
  7. 16  REM  **********************
  8. 20  ON  PEEK(104) = 96 GOTO 30: POKE 104,96: POKE 24576,0: PRINT  CHR$(4)"RUNFID PERSONALIZER"
  9. 30  TEXT : HOME : CLEAR 
  10. 40  VTAB 5: PRINT "NAME/MESSAGE (MAXIMUM 24 CHARACTERS) ": PRINT : INPUT "";N$
  11. 50  IF  LEN(N$) <22  THEN N$ =  CHR$(32) +N$ + CHR$(32): GOTO 50
  12. 60  HOME : VTAB 5: PRINT "INSERT DISK CONTAINING FID PROGRAM": PRINT "AND PRESS THE RETURN KEY";: GET A$: PRINT 
  13. 70  PRINT  CHR$(4)"BLOADFID"
  14. 80  FOR X = 1 TO 22
  15. 90  POKE X +5898, ASC( MID$ (N$,X,1)) +128
  16. 100  NEXT 
  17. 110  PRINT  CHR$(4)"BSAVEFUD,A$803,L$124E"
  18. 120  HOME : VTAB 12: PRINT  CHR$(7)"DONE!": PRINT  CHR$(4)"FP"